CLS
CLEAR
FOR t = 1 TO 2
PLAY "o2l8a>c<a >d<a>c<an0a>c<a >d<a>c<an0a>c<a >eal16e-l8dcl4dl8c<a n0al3n0"
NEXT t



'PLAY "o3t255dfagfedfagfedc+defedefl2el4dfagfedfagfedc+defedfal2>d<"
'PLAY "l4p2>c<afgab->c<afgab->c<afgabagfl2gl4afdefgafdefgafdefgfedl2el4"
'PLAY "o4t255dfagfedfagfedc+defedefl2eo5l4dfagfedfagfedc+defedfal2>d<"

